home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1995 April / Internet Tools.iso / x25 / nrs.shar.Z / nrs.shar / central next >
Encoding:
Text File  |  1990-04-27  |  1.0 KB  |  75 lines
  1. #! /bin/sh
  2. #
  3. # RCSid[] = "@(#)$Header: central,v 2.2 86/06/27 14:30:22 pb Rel $"
  4. #
  5. #    Produce a t.central like file format from the various
  6. #    files given.
  7. #
  8.  
  9. echo '.nf'
  10. echo '.H1 Forward Lookup'
  11. echo ''
  12. while read a b
  13. do
  14.     echo ".H1 Context $a Subnetwork $b"
  15.     echo ''
  16.     nrs central.cf "context $a $b"
  17. done <<'EOF'
  18. X29        PSS
  19. X29        JANET
  20. TS29        PSS
  21. TS29        JANET
  22. FTP        PSS
  23. FTP        JANET
  24. MAIL-NIFTP    PSS
  25. MAIL-NIFTP    JANET
  26. MAIL-X29    PSS
  27. MAIL-X29    JANET
  28. MAIL-TELEX    TELEX
  29. JTMP        PSS
  30. JTMP        JANET
  31. JTMP-FILES    PSS
  32. JTMP-FILES    JANET
  33. JTMP-REG    PSS
  34. JTMP-REG    JANET
  35. YBTS        PSS
  36. YBTS        JANET
  37. YBTS-NODE    PSS
  38. YBTS-NODE    JANET
  39. EOF
  40. if [ "$1" ]
  41. then exit
  42. fi
  43.  
  44. echo ""
  45. echo '.H1 Reverse lookup'
  46. echo ""
  47. while read a b
  48. do
  49.     echo ".H1 Context $a Subnetwork $b"
  50.     echo ""
  51.     nrs central.cf "context $a $b" "output reverse text"
  52. done <<'EOF'
  53. X29        PSS
  54. X29        JANET
  55. TS29        PSS
  56. TS29        JANET
  57. FTP        PSS
  58. FTP        JANET
  59. MAIL-NIFTP    PSS
  60. MAIL-NIFTP    JANET
  61. MAIL-X29    PSS
  62. MAIL-X29    JANET
  63. MAIL-TELEX    TELEX
  64. JTMP        PSS
  65. JTMP        JANET
  66. JTMP-FILES    PSS
  67. JTMP-FILES    JANET
  68. JTMP-REG    PSS
  69. JTMP-REG    JANET
  70. YBTS        PSS
  71. YBTS        JANET
  72. YBTS-NODE    PSS
  73. YBTS-NODE    JANET
  74. EOF
  75.